$stmt = $dbh->prepare("
BEGIN corpfin_dbo.p_fy05_submit.p_fy05_submit_rpt (:fy, :loc, :dpt, :ldap, :actn, :cursor );
END;
     ") or DBI::errstr;


#print "\n <pre><font size=+1>";
#print "\n :",$input,":";
#print "\n :",$LOGON,":";
#print "\n :",$input{'FY'},":";
#print "\n :",substr($input{'CCTR'},0,2),":";
#print "\n :",substr($input{'CCTR'},2,4),":";
#print "\n :",$ACT1,":";    

$stmt->bind_param(":ldap",  $LOGON);
$stmt->bind_param(":fy",    $input{'FY'});
$stmt->bind_param(":loc",   substr($input{'CCTR'},0,2));
$stmt->bind_param(":dpt",   substr($input{'CCTR'},2,4));
$stmt->bind_param(":actn",  $ACT1);

$stmt->bind_param_inout(":cursor", \$sth2, 0, { ora_type => ORA_RSET } );
$stmt->execute;


print <<ENDOFFILE;
<H3></H3>

</TABLE>
ENDOFFILE


$i=0;
while ( @data = $sth2->fetchrow_array() ) {

